home *** CD-ROM | disk | FTP | other *** search
/ Aminet 13 / Aminet 13 - August 1996.iso / Aminet / mus / edit / sfx_docger.lha / sfx-doc / Install-SFXdoc < prev    next >
Text File  |  1996-03-15  |  5KB  |  168 lines
  1. ; Install-SFXdoc Start --------------------------------------------------------------------------------------
  2. ;
  3. ; $VER: Install-SFXdoc (02.12.1995)
  4. ;
  5. ; SoundFX doc Installscript
  6. ; (C) Copyright 1993-1995 Stefan Kost. All Rights Reserved.
  7. ;
  8. ; -----------------------------------------------------------------------------------------------------------
  9.  
  10. ; setze sprachenabhängige Texte -----------------------------------------------------------------------------
  11.  
  12. (IF (= @LANGUAGE "english")
  13. (
  14.     (SET #bad-kick            "SoundFX requires at least Kickstart 2.04 !")
  15.     (SET #welcome-messy     "\n\nWelcome to the installation of docs for SoundFX !")
  16.     (SET #choose-dest        "Please choose a destination directory !\nA drawer called SFX will be automatically generated !")
  17.     (SET #choose-dest-help    "Here you can choose the place on your HD, were SFX should be installed")
  18.     (SET #dest-require        "\n\nPlease be shure, that you have on your HD at least 1.2 Mb free !")
  19.     (SET #copy-text            "copying texts ...")
  20.     (SET #copy-guides        "copying guides ...")
  21.     (SET #exit-messy        "\n\nSFXdoc is successfuly installed.\nPlease read the guide, to learn how to work with the program.\n")
  22. ))
  23. (IF (= @LANGUAGE "deutsch")
  24. (
  25.     (SET #bad-kick            "SoundFX benötigt mindestens Kickstart 2.04 !")
  26.     (SET #welcome-messy        "\n\nWillkommen zur Installation der docs für SoundFX !")
  27.     (SET #choose-dest        "Bitte Zielverzeichnis aussuchen !\nEin Verzeichnis mit dem Namen SFX wird angelegt !")
  28.     (SET #choose-dest-help    "Hier können Sie auswählen, wohin Sie das Programm installeren möchten")
  29.     (SET #dest-require        "\n\nBitte stellen Sie sicher, daß auf der Zielpartition\n 1.2 Mb-Speicher frei ist !")
  30.     (SET #copy-text            "kopiere Texte ...")
  31.     (SET #copy-guides        "kopiere Guides ...")
  32.     (SET #copy-help            "Die entsprechenden Dateien werden gerade auf ihre Festplatte kopiert.")
  33.     (SET #exit-messy        "\n\nSFXdoc konnte erfolgreich installiert werden.\nBitte lesen Sie das Guide, um zu erfahren wie das Programm bedient wird.\n")
  34. ))
  35.  
  36. ; check kick version ----------------------------------------------------------------------------------------
  37.  
  38. (if (< (/ (getversion) 65536) 37)
  39.     (abort #bad-kick)
  40. )
  41.  
  42. ; los geht`s ------------------------------------------------------------------------------------------------
  43.  
  44. (COMPLETE 0)
  45. (MESSAGE #welcome-messy)
  46.  
  47. (SET @default-dest
  48.     (ASKDIR
  49.         (PROMPT #choose-dest)
  50.         (HELP #choose-dest-help)
  51.         (DEFAULT @default-dest)
  52.     )
  53. )
  54. (MESSAGE #dest-require)
  55.  
  56. ; falls nicht vorhanden, Verzeichnis anlegen ----------------------------------------------------------------
  57. (COMPLETE 5)
  58. (SET @default-dest (TACKON @default-dest "SFX"))
  59. (SET sfx-dest @default-dest)
  60. (IF (= (EXISTS sfx-dest) 0)
  61.     (MAKEDIR sfx-dest (INFOS))
  62. )
  63.  
  64. ; Guide -----------------------------------------------------------------------------------------------------
  65.  
  66. (COMPLETE 17)
  67. (COPYFILES
  68.     (PROMPT #copy-text)
  69.     (HELP #copy-help)
  70.     (SOURCE "")
  71.     (FILES)
  72.     (PATTERN "*.txt")
  73.     (DEST sfx-dest)
  74. )
  75.  
  76. (COMPLETE 15)
  77. (SET sfxsub-dest (TACKON sfx-dest "Guides"))
  78. (IF (= (EXISTS sfxsub-dest) 0)
  79.     (MAKEDIR sfxsub-dest)
  80. )
  81. (COMPLETE 17)
  82. (COPYFILES
  83.     (PROMPT #copy-guides)
  84.     (HELP #copy-help)
  85.     (SOURCE "Guides/")
  86.     (FILES)
  87.     (PATTERN "*.guide")
  88.     (DEST sfxsub-dest)
  89. )
  90.  
  91. (COMPLETE 25)
  92. (SET sfxsub-dest (TACKON sfx-dest "_loader"))
  93. (IF (= (EXISTS sfxsub-dest) 0)
  94.     (MAKEDIR sfxsub-dest)
  95. )
  96. (COMPLETE 27)
  97. (COPYFILES
  98.     (PROMPT #copy-guides)
  99.     (HELP #copy-help)
  100.     (SOURCE "Guides/Loader/")
  101.     (DEST sfxsub-dest)
  102.     (ALL)
  103. )
  104.  
  105. (COMPLETE 35)
  106. (SET sfxsub-dest (TACKON sfx-dest "_operators"))
  107. (IF (= (EXISTS sfxsub-dest) 0)
  108.     (MAKEDIR sfxsub-dest)
  109. )
  110. (COMPLETE 37)
  111. (COPYFILES
  112.     (PROMPT #copy-guides)
  113.     (HELP #copy-help)
  114.     (SOURCE "Guides/Operators/")
  115.     (DEST sfxsub-dest)
  116.     (ALL)
  117. )
  118.  
  119. (COMPLETE 65)
  120. (SET sfxsub-dest (TACKON sfx-dest "_player"))
  121. (IF (= (EXISTS sfxsub-dest) 0)
  122.     (MAKEDIR sfxsub-dest)
  123. )
  124. (COMPLETE 67)
  125. (COPYFILES
  126.     (PROMPT #copy-guides)
  127.     (HELP #copy-help)
  128.     (SOURCE "Guides/Player/")
  129.     (DEST sfxsub-dest)
  130.     (ALL)
  131. )
  132.  
  133. (COMPLETE 75)
  134. (SET sfxsub-dest (TACKON sfx-dest "_rexx"))
  135. (IF (= (EXISTS sfxsub-dest) 0)
  136.     (MAKEDIR sfxsub-dest)
  137. )
  138. (COMPLETE 77)
  139. (COPYFILES
  140.     (PROMPT #copy-guides)
  141.     (HELP #copy-help)
  142.     (SOURCE "Guides/Rexx/")
  143.     (DEST sfxsub-dest)
  144.     (ALL)
  145. )
  146.  
  147. (COMPLETE 85)
  148. (SET sfxsub-dest (TACKON sfx-dest "_saver"))
  149. (IF (= (EXISTS sfxsub-dest) 0)
  150.     (MAKEDIR sfxsub-dest)
  151. )
  152. (COMPLETE 87)
  153. (COPYFILES
  154.     (PROMPT #copy-guides)
  155.     (HELP #copy-help)
  156.     (SOURCE "Guides/Saver/")
  157.     (DEST sfxsub-dest)
  158.     (ALL)
  159. )
  160.  
  161. ; Fertig ----------------------------------------------------------------------------------------------------
  162. (COMPLETE 99)
  163. (MESSAGE #exit-messy)
  164. (COMPLETE 100)
  165.  
  166. (EXIT (QUIET))
  167. ; Install-SFXdoc Ende ---------------------------------------------------------------------------------------
  168.